home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / defs.4th < prev    next >
Encoding:
Text File  |  1994-09-29  |  887 b   |  37 lines
  1. \
  2. \ test/defs.4th ---    test VARIABLE and CONSTANT and simple colon definitions
  3. \            provide some shortcuts
  4. \ (duz 05Aug93)
  5. \
  6.  
  7. CR .( simple colon definitions) CR .(    )
  8.  
  9. : T 0 . ; T    FORGET T
  10. : T 00 . ; T    FORGET T
  11. : T 0.0 D. ; T    FORGET T    SPACE
  12.  
  13. \ Y prints 0 if a clean true-flag is on top of stack
  14. \ N prints 0 if a clean false-flag is on top of stack
  15. \ D prints DEPTH
  16.  
  17. : Y    -1 = 0= . ;        -1 Y
  18. : N    . ;            0 N
  19. : D    DEPTH . ;        D
  20. : FD    FDEPTH . ;        FD
  21.  
  22. : WAIT    CR ." press any key..." KEY DROP ;
  23.  
  24. CR .( constants) CR .(    )
  25.  
  26. DECIMAL
  27.  
  28.  123456789 CONSTANT N1         123456789.123456789 2CONSTANT D1
  29.  987654321 CONSTANT N2         987654321.987654321 2CONSTANT D2
  30. 1111111110 CONSTANT N3        1111111111.111111110 2CONSTANT D3
  31.  
  32. N1 123456789 = Y        D1 123456789.123456789 D= Y
  33. N2 987654321 = Y D        D2 987654321.987654321 D= Y D
  34.  
  35. : =N1 N1 = Y ;    : =N2 N2 = Y ;    : =N3 N3 = Y ;
  36. : =D1 D1 D= Y ;    : =D2 D2 D= Y ;    : =D3 D3 D= Y ;
  37.